home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / b / k11asm.com < prev    next >
Encoding:
Text File  |  1989-06-12  |  795 b   |  21 lines
  1. $ ! k11asm.com
  2. $ ! simple rsts v9 dcl com file to assemble individual k11 modules
  3. $ ! also, decide to use macro.sav or mac.tsk as macro.sav is 2 to 3
  4. $ ! times faster than MAC
  5. $ !
  6. $ cmd = "MACRO"
  7. $ if p1 .eqs. "K11MCO" .or. p1 .eqs. "k11cmo" then cmd = "MAC"
  8. $ if p1 .eqs. "K11PCO" .or. p1 .eqs. "k11pco" then cmd = "MAC"
  9. $ if p1 .eqs. "K11CPY" .or. p1 .eqs. "k11cpy" then cmd = "MAC"
  10. $ if p1 .eqs. "K11RMS" .or. p1 .eqs. "k11rms" then cmd = "MAC"
  11. $ if p1 .eqs. "K11RMZ" .or. p1 .eqs. "k11rmz" then cmd = "MAC"
  12. $ if p1 .eqs. "K11RXY" .or. p1 .eqs. "k11rxy" then cmd = "MAC"
  13. $ if p1 .eqs. "K11M41" .or. p1 .eqs. "k11m41" then cmd = "MAC"
  14. $ open/rep/write 1 'p1'.COM
  15. $ write 1 "$"
  16. $ write 1 "$ set noon"
  17. $ write 1 "$ ass [1,11] in"
  18. $ write 1 "$ ccl ''cmd' ''p1'=in:''p1'"
  19. $ close 1
  20. $ sub 'p1'.COM
  21.